home *** CD-ROM | disk | FTP | other *** search
/ ASP Advantage 1993 / The Association of Shareware Professionals Advantage CD-ROM 1993.iso / files / windions / dasst / history.tpl < prev    next >
Text File  |  1993-03-31  |  2KB  |  71 lines
  1. ;*************************************************************
  2. ;* DATA ASSISTANT Historical Retrieval Capture Template Script
  3. ;*
  4. ;* Captures historical quotes from CompuServe MQINT 200
  5. ;*
  6. ;*************************************************************
  7.  
  8. ;-------------------------------------------------------------
  9. ;         Delete and Create the historical capture file.
  10. ;
  11. ; *** THESE LINES SHOULD NOT BE CHANGED OR DELETED ***
  12. ;-------------------------------------------------------------
  13. KILL    &HISTORY_CAPTURE&
  14. CAPTURE &HISTORY_CAPTURE&
  15. CAPTURE N
  16. ;-------------------------------------------------------------
  17. ; Establish a connection to CompuServe.  This logic is based 
  18. ; on direct access to CompuServe using local access numbers.
  19. ;
  20. ; The modem initialization string is sent automatically when
  21. ; the connection is initially made before script execution.
  22. ;
  23. ; Generally, you can change this section as necessary for
  24. ; your own access.  The goal is to enter CompuServe such that
  25. ; the following logic section ("GO MQINT") and beyond can be
  26. ; executed for retrieving historical data.
  27. ;-------------------------------------------------------------
  28. S &MODEM_DIAL&&CIS_HISTORY_PHONE&^M
  29. W &MODEM_CONNECT&
  30. P 2
  31. U ^C
  32. W ID:
  33. S &CIS_HISTORY_USERID&^M
  34. W word:
  35. U &CIS_HISTORY_PASSWORD&^M
  36. W !
  37. ;-------------------------------------------------------------
  38. ; Set session-specific settings
  39. ;-------------------------------------------------------------
  40. S SET TERMINAL OTHER^M
  41. W !
  42. S SET PAGED NO^M
  43. W !
  44. ;-------------------------------------------------------------
  45. ; Enter the MicroQuote area and select Interface 200.
  46. ;-------------------------------------------------------------
  47. S GO MQINT^M
  48. W face:
  49. S 200^M
  50. C Y
  51. W :
  52. ;-------------------------------------------------------------
  53. ; Repeat the following retrieval procedure from MQINT 200
  54. ; for each symbol specified in the "Daily Symbols" dialog box.
  55. ; One command line is sent for each symbol.
  56. ;-------------------------------------------------------------
  57. &BLOCKHISTORY
  58.    S &SYMBOL&,&HISTORY_SELECT&^M
  59.    W :
  60. &ENDBLOCK
  61.  
  62. C N
  63. U ^M
  64. W face:
  65. ;-------------------------------------------------------------
  66. ; Log off from CompuServe
  67. ;-------------------------------------------------------------
  68. S OFF^M
  69. W &MODEM_NOCARRIER&
  70. P 2
  71.